home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / kyzeramo.lha / FadeWB.AMOS / FadeWB.amosSourceCode
AMOS Source Code  |  1992-09-03  |  1KB  |  43 lines
  1. ' Fade real WB colours 
  2. ' by Kyzer of CSG
  3. '
  4. Dim C(6)
  5. Global C()
  6. '
  7. Wait 50
  8. _FADEWB[True]
  9. Wait 50
  10. _FADEWB[False]
  11. Wait 50
  12. Amos To Front 
  13. '
  14. Procedure _FADEWB[GO]
  15.    ' fades WB 
  16.    ' GO==True, fade WB to 0 
  17.    ' GO<>True, fade 0 to WB 
  18.    Amos To Back 
  19.    Screen Open 7,320,8,2,Lowres
  20.    Flash Off : Screen Hide 7
  21.    '
  22.    If GO
  23.       If Length(16)=0 : Reserve As Work 16,118 : End If 
  24.       S=Start(16) : Extension_18_0982 S,118
  25.       C(0)=Deek(S+$6E) : C(1)=Deek(S+$70)
  26.       C(2)=Deek(S+$72) : C(3)=Deek(S+$74)
  27.       C(4)=Deek(S+$66) : C(5)=Deek(S+$68)
  28.       C(6)=Deek(S+$6A)
  29.       Palette C(0),C(1),C(2),C(3),C(4),C(5),C(6)
  30.       Fade 3,0,0,0,0,0,0,0
  31.    Else 
  32.       Palette 0,0,0,0,0,0,0
  33.       Fade 3,C(0),C(1),C(2),C(3),C(4),C(5),C(6)
  34.    End If 
  35.    '
  36.    TIME=Timer : S=Start(16)
  37.    While Timer<TIME+50
  38.       Wait Vbl : Doke S+$6E,Colour(0) : Doke S+$70,Colour(1)
  39.       Doke S+$72,Colour(2) : Doke S+$74,Colour(3) : Doke S+$66,Colour(4)
  40.       Doke S+$68,Colour(5) : Doke S+$6A,Colour(6) : Extension_18_09AC S,118
  41.    Wend 
  42.    Screen Close 7
  43. End Proc